home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / infoplus.zip / PAGE_11.INC < prev    next >
Text File  |  1990-06-25  |  211b  |  13 lines
  1. procedure page_11;
  2.  
  3. begin
  4.   caption2('Environment');
  5.   window(3, 4, twidth, tlength - 2);
  6.   for i:=1 to envcount do begin
  7.     pause2;
  8.     if endit then
  9.       Exit;
  10.     writeln(envstr(i))
  11.   end
  12. end;
  13.